﻿Public Class UserControl1
    Dim webClient As New System.Net.WebClient
    Dim result As String = webClient.DownloadString("http://technubi.com/sand-android/pebeka.php/")
    '-------------------------warna font ayat
    Public Property fontColorAyat() As System.Drawing.Color
        Get
            Return Label1.ForeColor
        End Get

        Set(ByVal Value As System.Drawing.Color)
            Label1.ForeColor = Value
        End Set
    End Property

    '-------------------------warna font kitab
    Public Property fontColorKitab() As System.Drawing.Color
        Get
            Return Label2.ForeColor
        End Get

        Set(ByVal Value As System.Drawing.Color)
            Label2.ForeColor = Value
        End Set
    End Property

    '------------------------- jenis font kitab
    Public Property fontKitab() As System.Drawing.Font
        Get
            Return Label2.Font
        End Get

        Set(ByVal Value As System.Drawing.Font)
            Label2.Font = Value
        End Set
    End Property

    '------------------------- jenis font ayat
    Public Property fontAyat() As System.Drawing.Font
        Get
            Return Label1.Font
        End Get

        Set(ByVal Value As System.Drawing.Font)
            Label1.Font = Value
        End Set
    End Property


    '------------------------- background atas
    Public Property backAtas() As Image
        Get
            Return PictureBox1.BackgroundImage
        End Get

        Set(ByVal Value As Image)
            PictureBox1.BackgroundImage = Value
        End Set
    End Property

    '------------------------- background warna form keseluruhan
    Public Property backFormW() As System.Drawing.Color
        Get
            Return Me.BackColor
        End Get

        Set(ByVal Value As System.Drawing.Color)
            Me.BackColor = Value
        End Set
    End Property


    '------------------------- background gambar form keseluruhan
    Public Property backFormG() As Image
        Get
            Return Me.BackgroundImage

        End Get

        Set(ByVal Value As Image)
            Me.BackgroundImage = Value
        End Set
    End Property

    Public imgList As New List(Of Bitmap)
    Public Sub formLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        imgList.Add(My.Resources.Koala)
    End Sub

    Public Property Prop As List(Of Bitmap)
        Get
            Return imgList.ToList()
        End Get
        Set(value As List(Of Bitmap))
            'Me.BackgroundImage
        End Set
    End Property


    Public Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub



    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click

    End Sub
End Class
